home *** CD-ROM | disk | FTP | other *** search
- ;
- ; QPEG video driver
- ; for Genoa 6100, 6200, 6300, 6400, 6600
- ;
-
- .286
- Code Segment Para 'Code'
- Assume cs:Code
- Org 100h
-
- Procs dw Bank,Init,Exit,0
-
- Bank: mov dl,al
- shl al,3
- or al,dl
- or al,40h
- push ax
- mov al,06h
- mov dx,03c4h
- out dx,al
- pop ax
- inc dx
- out dx,al
- retf
-
- Init: retf
-
- Exit: retf
-
- Code Ends
- End Procs
-
- ; End of source.
-